home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9005a.d64 / f+m equalizer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  58 lines
  1. 100 REM EQUALIZER ZUR ANPASSUNG
  2. 105 REM BEREITS VORHANDENER REL-DATEIEN
  3. 108 :
  4. 110 PRINT"[147]"(null)(14,5)"F+M MANAGER"
  5. 120 PRINT(null)(13,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
  6. 130 PRINT(null)(15,8)"EQUALIZER"
  7. 140 PRINT(null)(6,11)"DATEINAME  [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  8. 150 (null)3:(null)
  9. 160 DS=65535 : FE=-1
  10. 170 GOSUB500
  11. 180 :
  12. 190 :
  13. 200 PRINT(null)(5,16)"DATENSAETZE WERDEN GEZAEHLT !"
  14. 210 PRINT(null)(13,18)"DATENSATZ#"
  15. 220 (null)"I"
  16. 230 (null) S0$
  17. 240 GOSUB600
  18. 250 FOR I=1TODS
  19. 260 (null) I,1,A$ : INPUT#127,ER
  20. 270 IF ER<>50 THEN PRINT(null)(23,18);I : NEXT
  21. 280 (null)
  22. 290 (null) "S:"+LEFT$(S0$,15)+"+"
  23. 300 PRINT"[147]"(null)(2,0)"DATENSAETZE:"I"DATENSATZLAENGE:"S1$
  24. 310 :
  25. 320 PRINT(null)(9,3)"ANZAHL DER FELDER ? ";
  26. 330 (null) 2,FE :DIM FE(FE)
  27. 340 IFFE=1THENFE(1)=ASC(A$):GOTO450
  28. 350 :
  29. 360 FOR J=1TO FE
  30. 370 PRINTTAB(10)"MAX. FELDLAENGE :"VAL(S1$)-A
  31. 380 PRINTTAB(10)"FELD";J;TAB(19)"LAENGE : ";
  32. 390 (null) 3,FE(J)
  33. 400 IF FE(J)=0 THEN PRINTTAB(11)"NULL NICHT ERLAUBT":GOTO370
  34. 410 IF A+FE(J) > VAL(S1$) THEN PRINTTAB(16)"ZU LANG !":GOTO370
  35. 420 A=FE(J)+A
  36. 430 NEXT
  37. 440 :
  38. 450 PRINTTAB(9)"FILE WIRD GESCHRIEBEN!"
  39. 460 DS=I-1 : GOSUB500
  40. 470 CLOSE15
  41. 480 END
  42. 490 :
  43. 500 OPEN1,8,1,LEFT$(S0$,15)+"+"
  44. 510 PRINT#1, CHR$(DS-INT(DS/256)*256);
  45. 520 PRINT#1, CHR$(DS/256);
  46. 530 IF FE=-1 THEN  PRINT#1,CHR$(1);CHR$(1);:GOTO580
  47. 540 PRINT#1, CHR$(FE);
  48. 550 FOR K=1TOFE
  49. 560 PRINT#1, CHR$(FE(K));
  50. 570 NEXT
  51. 580 CLOSE1
  52. 590 RETURN
  53. 600 OPEN15,8,15
  54. 610 PRINT#15,"M-R"CHR$(200)CHR$(0)
  55. 620 GET#15,A$
  56. 630 S1$=STR$(ASC(A$))
  57. 640 RETURN
  58.